home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / cmd.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  442 b   |  19 lines
  1. if (!defined &_CMD) {
  2.     eval 'sub _CMD {1;}';
  3.     require 'stdio.ph';
  4.     if (!defined &_CLIENTDATA) {
  5.     eval 'sub _CLIENTDATA {1;}';
  6.     }
  7.     eval 'sub CMD_OK {0;}';
  8.     eval 'sub CMD_AMBIGUOUS {1;}';
  9.     eval 'sub CMD_NOT_FOUND {2;}';
  10.     eval 'sub CMD_PARTIAL {3;}';
  11.     eval 'sub CMD_UNBOUND {4;}';
  12.     eval 'sub CMD_BAD_ARGS {5;}';
  13.     eval 'sub CMD_ERROR {6;}';
  14.     eval 'sub CMD_VAR_LOOP {7;}';
  15.     if (defined &NOTDEF) {
  16.     }
  17. }
  18. 1;
  19.